home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesS-T.lzh / SkeletonKrewCD.lha / SkeletonKrewCD32HD / Install_SkeletonKrew next >
Text File  |  2001-06-10  |  2KB  |  63 lines
  1. ;try to figure out a place where the user usually installs his games
  2. (if (exists "Games:" (noreq) )
  3.     (set @default-dest "Games:")
  4.     (if (exists "SYS:Games" (noreq) )
  5.         (set @default-dest "SYS:Games")
  6.         (if (exists "Work:Games" (noreq) )
  7.             (set @default-dest "Work:Games")
  8.             (if (exists "JEUX:" (noreq) )
  9.                (set @default-dest "JEUX:")
  10.                (set @default-dest "SYS:")
  11.             )
  12.         )
  13.     )
  14. )
  15.  
  16. (set GameDir "SkeletonKrewCD32")
  17.  
  18.  
  19. ;ask the user to select a directory to install the game into
  20. (set default-dest
  21.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  22.                              "A drawer called " GameDir " will be created.")
  23.                      (help @askdir-help)
  24.                      (default @default-dest)
  25.              )
  26.      GameDir
  27.      )
  28. )
  29. (set @default-dest default-dest)
  30.  
  31. ;    create the selected directory
  32. (makedir @default-dest
  33.          (infos)
  34. )
  35. (set #datadir (tackon @default-dest "data"))
  36. (makedir #datadir)
  37.  
  38.  
  39.     ;copy all extra files to this directory
  40.  
  41.         (copyfiles (source "skeletonkrewcd32hd.readme")
  42.                    (dest @default-dest)
  43.            (infos)
  44.         )
  45.  
  46.         (copyfiles (source "SkeletonKrew.slave")
  47.                    (dest @default-dest)
  48.         )
  49.  
  50.         (copyfiles (source "SkeletonKrew.icon")
  51.                    (dest @default-dest)
  52.                    (newname "SkeletonKrew.info")
  53.         )
  54.  
  55.  
  56.         (message "\n\n\n\n\n\nPlease insert Skeleton Crew CD-ROM in any drive")
  57.  
  58.         (copyfiles (source "CD0:")
  59.                    (dest #datadir)
  60.            (files)
  61.            (pattern "#?")
  62.         )
  63.